home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
FRICTION.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
1KB
|
41 lines
0 TEXT : HOME
10 PRINT : PRINT : PRINT
12 PRINT "Now let's look at another force that affects inertia."
14 PRINT : PRINT : PRINT : PRINT : PRINT
15 PRINT : PRINT : PRINT
16 FOR I = 0 TO 2500: NEXT I
100 HGR : HCOLOR= 3: HOME
110 VTAB (21): PRINT "Why does this apple, like most moving objects, eventually stop?"
150 X% = 70:Y% = 70
152 FOR I = 70 TO 200
154 X% = I: HCOLOR= 3: GOSUB 1000
156 X% = I: HCOLOR= 0: GOSUB 1000
158 I = I +5: NEXT I
160 X% = 200: HCOLOR= 3: GOSUB 1000
170 FOR I = 0 TO 1000: NEXT I
180 CALL 62450: HOME
182 PRINT CHR$(4);"run fricdef"
998 END
1000 HPLOT X% +3,Y% TO X% +4,Y%
1002 HPLOT X% +3,Y% +1 TO X% +5,Y% +1
1004 HPLOT X% +10,Y% +1 TO X% +11,Y% +1
1006 HPLOT X% +3,Y% +2 TO X% +6,Y% +2
1008 HPLOT X% +10,Y% +2 TO X% +11,Y% +2
1010 HPLOT X% +4,Y% +3 TO X% +7,Y% +3
1012 HPLOT X% +9,Y% +3 TO X% +10,Y% +3
1014 HPLOT X% +4,Y% +4 TO X% +10,Y% +4
1016 HPLOT X% +1,Y% +5 TO X% +16,Y% +5
1018 HPLOT X%,Y% +6 TO X% +17,Y% +6
1020 HPLOT X%,Y% +7 TO X% +17,Y% +6
1022 HPLOT X%,Y% +8 TO X% +17,Y% +8
1024 HPLOT X%,Y% +9 TO X% +17,Y% +9
1026 HPLOT X% +1,Y% +10 TO X% +16,Y% +10
1028 HPLOT X% +1,Y% +11 TO X% +16,Y% +11
1030 HPLOT X% +1,Y% +12 TO X% +16,Y% +12
1032 HPLOT X% +2,Y% +13 TO X% +15,Y% +13
1034 HPLOT X% +2,Y% +14 TO X% +15,Y% +14
1036 HPLOT X% +3,Y% +15 TO X% +14,Y% +15
1038 HPLOT X% +4,Y% +16 TO X% +13,Y% +16
1040 HPLOT X% +5,Y% +17 TO X% +7,Y% +17
1042 HPLOT X% +10,Y% +17 TO X% +12,Y% +17
1080 RETURN